Sub CreateSendDoc()
    Dim originalDoc As Document
    Dim newDoc As Document
    Dim styleToDelete As Style
    Dim savePath As String
    Dim originalFolderPath As String
    Dim originalFilePath As String
    
    ' Disable screen updating for faster execution
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False

    ' Save the document
    ActiveDocument.SaveAs2

    ' Assign the original document to a variable
    Set originalDoc = ActiveDocument
    
    ' Extract the folder path from the original document's file path
    originalFolderPath = Left(originalDoc.FullName, InStrRev(originalDoc.FullName, Application.PathSeparator))
    originalFilePath = originalDoc.FullName
    
    ' Set the save path for the modified document in the same folder as the original document
    savePath = originalFolderPath & "SEND_" & originalDoc.Name
    
    ' Create a duplicate of the original document
    originalDoc.SaveAs2 Filename:=savePath, FileFormat:=wdFormatXMLDocument
    Set newDoc = Documents.Open(savePath)
    
    ' Specify the first style to be deleted and delete it
    Set styleToDelete = newDoc.Styles("Analytic")
    
    ' Use Find and Replace to remove text with the specified style and replace it with a paragraph break
    With newDoc.Content.Find
        .ClearFormatting
        .Style = styleToDelete
        .Replacement.ClearFormatting
        .Replacement.Text = "^p"
        .Execute Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue
    End With
    
    ' Specify the second style to be deleted and delete it
    Set styleToDelete = newDoc.Styles("Undertag")
    
    ' Use Find and Replace to remove text with the specified style and replace it with a paragraph break
    With newDoc.Content.Find
        .ClearFormatting
        .Style = styleToDelete
        .Replacement.ClearFormatting
        .Replacement.Text = "^p"
        .Execute Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue
    End With
    
    ' Reopen the original document using its file path
    Documents.Open originalFilePath
    
    ' Save and close the modified document without prompts
    newDoc.Close SaveChanges:=wdSaveChanges
    
    ' Enable screen updating and alerts
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
    
    ' Inform the user about the completion
    MsgBox "Send version created and saved as " & savePath
End Sub